perm filename MRIPKG.TEX[TEX,DEK]1 blob
sn#462930 filedate 1979-07-27 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00003 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 % ***** MRIPKG.TEX ***** 19 July 1979
C00008 00003 \:@=cmathx
C00011 ENDMK
C⊗;
% ***** MRIPKG.TEX ***** 19 July 1979
\chcode'173←1 \chcode'176←2 \chcode'44←3 \chcode'26←4
\chcode'45←5 \chcode'43←6 \chcode'136←7 \chcode 1←8
\def\%{\char'45 } % Note, the space after 45 is needed! (e.g.\%0)
\def\lft#1{#1\hfill}
\def\ctr#1{\hfill#1\hfill}
\def\rt#1{\hfill#1}
\def\rjustline#1{\hjust to size{\hskip0pt plus1000cm minus1000cm #1}}
\def\ctrline#1{\hbox to size{\hskip0pt plus1000cm minus1000cm #1\hskip0pt
plus1000cm minus1000cm}}
\def\trace{\chpar0←} \def\jpar{\chpar1←} \def\ragged{\chpar8←} \def\widow{\chpar4←}
\def\nquad{\hskip .5em}
\def\qquad{\quad\quad}
\def\qqquad{\quad\quad\quad}
\def\nskip{\hskip .5em plus .5em minus .2em}
\def\sepstar{\nskip$\ast$\nskip}
\def\book{$\ast$} %"book star" for mr indexes
\def\npg{\penalty1000\hfilneg} %negative paragraph glue (ends flush right)
\def\pfill{\hskip .5em plus 5000pt\penalty 0\null\!
\penalty 1000\hskip .5em plus 5000pt}
% fill between end of "paragraph" text and a flush right element
\def\break{\hfil\penalty 0\null\penalty 1000\hfilneg}
\def\leadr{\penalty 1000\hskip.4em plus 2em\leaders\hbox to 4pt{.}\hfil}
% leaders to separate author names from references
% interword skip, nominally .5 em
\def\,{\penalty 1000\hskip .16em plus 100pt\penalty 200
\hskip .16em plus-100pt}
% hyphen ragged right
\def\\{\penalty 1000\hbox{-}\hskip 0pt plus 100pt\penalty 200
\hskip 0pt plus-100pt}
% first number reference in mr issue/cmp index
\def\fref#1{\leadr\hskip 2em\penalty 0\hskip -2em plus-100000pt\!
\null\penalty 1000\hfil\hbox to 2em{\hfill #1}\!}
% first reference longer than a single number (e.g.
% a series, m-n, or a phrase, "See", etc.)
\def\ffref#1{\leadr\hskip 2em\penalty 0\hskip -2em plus-100000pt\!
\null\penalty 1000\hfil#1\!}
% "other" (non-first) reference
\def\.{\penalty 999\hskip 0pt plus-100pt\null\penalty 1000
\hskip0pt plus 100pt\ \!}
% m-entry as only entry, or author cross-reference
\def\see{\ffref{{\sl See}}\penalty1000\ \!}
% m-entry in addition to regular entries
\def\also{\.\hbox{\sl See also}\penalty1000\ \!}
% hyphen, no break
\def\?{\hbox{-}}
% en-dash, no break
\def\-{\hbox{--}}
\def\ams{American Mathematical Society}
\def\ldots{{.\≥.\≥.}}
\def\cdots{{\char'401\≥\char'401\≥\char'401}}
\def\ldotss{{.\≥.\≥.\≥}}
\def\cdotss{\cdots\≥}
\def\ldotsm{{\≥.\≥.\≥.\≥}}
\def\vdots{\vbox{\baselineskip 4pt\vskip 6pt\hbox{.}\hbox{.}\hbox{.}}}
\def\eqalign#1{\vcenter{\halign{\hfill$\dispstyle{##}$⊗$\dispstyle{\null##}$\hfill
\cr#1}}}
\def\eqalignno#1{\vbox{\tabskip 0pt plus 1000pt minus 1000pt
\halign to size{\hfill$\dispstyle{##}$\tabskip 0pt
⊗$\dispstyle{\null##}$\hfill\tabskip 0 pt plus 1000pt minus 1000pt
⊗\hfill$ ##$\tabskip 0pt\cr#1}}}
\def\cpile#1{\vcenter{\halign{\hfill$## $\hfill\cr#1}}}
\def\lpile#1{\vcenter{\halign{$## $\hfill\cr#1}}}
\def\rpile#1{\vcenter{\halign{\hfill$## $\cr#1}}}
\def\null{\hbox{}}
\def\twoline#1#2#3{\halign{\hbox to size{##}\cr$\quad\dispstyle{#1}$\hfill\cr
\noalign{\penalty 1000\vskip#2}\hfill$\dispstyle{#3}\quad$\cr}}
\def\chop to#1pt#2{\hbox{\lower#1pt\null\vbox{\hbox{\lower100pt\hbox{\raise100pt
\hbox{$\dispstyle{#2}$}}}\vskip-100pt}}} % pretends that #2 is #1pt deep
\def\spose#1{\hbox to 0pt{#1\hskip 0pt minus 100000pt}}
\:@=cmathx
\:a=cmr10 \:c=cmr8 \:d=cmr7 \:e=cmr6 \:f=cmr5
\:g=cmi10 \:i=cmi8 \:j=cmi7 \:k=cmi6 \:l=cmi5
\:n=cms10 \:p=cms8
\:q=cmb10 \:s=cmb8 \:t=cmr6
\:u=cmsy10 \:x=cmsy7 \:z=cmsy5
\:>=cmss18 \:?=cmti10 \:<=cms6
\def\tenpt{\baselineskip 10pt
\def\rm{\:a} \def\sl{\:n} \def\bf{\:q} \def\it{\:g} \rm}
\def\eightpt{\baselineskip 8pt
\def\rm{\:c} \def\bf{\:s} \rm}
\def\sixpt{\baselineskip 6pt
\def\rm{\:e} \def\sl{\:<} \def\bf{\:t} \rm}
\def\sixragged{\sixpt\jpar 1000\ragged 1000000}
\def\L{\save9\hbox{L}\spose{\raise .36ht9\hbox{\char'31}}\box9}
\def\Cc{\spose{\char'30}C}
\def\Acirc{\save9\hbox{A}\spose{\raise .24ht9\hbox{\char'27}}\box9}
\def\udot#1{$\vtop{\baselineskip 0pt\lineskip .11em
\halign{\ctr{##}\cr
#1\cr.\cr}}$}
\def\dudot#1{$\vtop{\baselineskip 0pt\lineskip 1pt
\halign{\ctr{##}\cr
#1\cr\char'23\cr}}$}
\parindent 20pt \maxdepth 2pt
\parskip 0pt plus 1 pt \baselineskip 12pt \lineskip 1pt
\dispskip 0pt %was 12pt plus 3pt minus 9pt
\dispaskip 0pt %was 0pt plus 3pt
\dispbskip 0pt %was 7pt plus 3pt minus 4pt
\mathrm adf \mathit gjl \mathsy uxz \mathex @
\setcount0 1 %page number counter
\gdef\prevmark{garbage}
\gdef\newpg {T}
\def\bbmark#1#2{\mark{
\if T\newpg{#1}
\else{#2}}}